home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0232 / setup.sam < prev    next >
INI File  |  1997-03-26  |  7KB  |  560 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     2
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     
  28.     
  29.     
  30.     
  31.     
  32.     816257832
  33.     9
  34.     797006269
  35.     78
  36.     2
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [tag]
  65.     Body Text
  66.     2
  67.     [fnt]
  68.         Arial MT
  69.         240
  70.         0
  71.         16384
  72.     [algn]
  73.         1
  74.         1
  75.         216
  76.         0
  77.         0
  78.     [spc]
  79.         33
  80.         273
  81.         1
  82.         0
  83.         0
  84.         1
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         1
  92.         0
  93.         1
  94.         1
  95.         1
  96.         10
  97.         10
  98.         1
  99.     [spec]
  100.         0
  101.         0
  102.         
  103.         0
  104.         1
  105.         1
  106.         0
  107.         16
  108.         0
  109.         0
  110.     [nfmt]
  111.         272
  112.         1
  113.         2
  114.         .
  115.         ,
  116.         </c>
  117.     Body Text
  118.     0
  119.     0
  120. [tag]
  121.     Body Single
  122.     3
  123.     [fnt]
  124.         TimesNewRomanPS
  125.         200
  126.         0
  127.         49152
  128.     [algn]
  129.         1
  130.         1
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         33
  136.         273
  137.         1
  138.         0
  139.         0
  140.         1
  141.         100
  142.     [brk]
  143.         4
  144.     [line]
  145.         8
  146.         0
  147.         1
  148.         0
  149.         1
  150.         1
  151.         1
  152.         10
  153.         10
  154.         1
  155.     [spec]
  156.         0
  157.         0
  158.         
  159.         0
  160.         1
  161.         1
  162.         0
  163.         0
  164.         0
  165.         0
  166.     [nfmt]
  167.         272
  168.         1
  169.         2
  170.         .
  171.         ,
  172.         </c>
  173.     Body Single
  174.     0
  175.     0
  176. [tag]
  177.     Function
  178.     4
  179.     [fnt]
  180.         Arial MT
  181.         200
  182.         0
  183.         16385
  184.     [algn]
  185.         1
  186.         1
  187.         0
  188.         0
  189.         0
  190.     [spc]
  191.         33
  192.         244
  193.         1
  194.         0
  195.         0
  196.         1
  197.         100
  198.     [brk]
  199.         68
  200.     [line]
  201.         8
  202.         0
  203.         1
  204.         0
  205.         1
  206.         1
  207.         1
  208.         10
  209.         10
  210.         1
  211.     [spec]
  212.         0
  213.         1
  214.         
  215.         0
  216.         1
  217.         1
  218.         0
  219.         0
  220.         0
  221.         0
  222.     [nfmt]
  223.         272
  224.         1
  225.         2
  226.         .
  227.         ,
  228.         </c>
  229.     Body Text
  230.     0
  231.     0
  232. [lay]
  233.     Standard
  234.     516
  235.     [rght]
  236.         16833
  237.         11908
  238.         1
  239.         1440
  240.         1440
  241.         1
  242.         1440
  243.         1440
  244.         0
  245.         1
  246.         0
  247.         1
  248.         0
  249.         2
  250.         1
  251.         1440
  252.         10465
  253.         12
  254.         1
  255.         720
  256.         1
  257.         1440
  258.         1
  259.         2160
  260.         1
  261.         2880
  262.         1
  263.         3600
  264.         1
  265.         4320
  266.         1
  267.         5040
  268.         1
  269.         5760
  270.         1
  271.         6480
  272.         1
  273.         7200
  274.         1
  275.         7920
  276.         1
  277.         8640
  278.     [hrght]
  279.     [lyfrm]
  280.         1
  281.         11200
  282.         0
  283.         0
  284.         11908
  285.         1440
  286.         0
  287.         1
  288.         3
  289.         1 0 0 0 0 0 0
  290.         0
  291.         0
  292.         1
  293.     [frmlay]
  294.         1440
  295.         11908
  296.         1
  297.         1440
  298.         72
  299.         1
  300.         792
  301.         1440
  302.         0
  303.         1
  304.         0
  305.         1
  306.         1
  307.         0
  308.         1
  309.         1440
  310.         10465
  311.         1
  312.         3
  313.         9360
  314.     [txt]
  315. >
  316.     [frght]
  317.     [lyfrm]
  318.         1
  319.         13248
  320.         0
  321.         15393
  322.         11908
  323.         16833
  324.         0
  325.         1
  326.         3
  327.         1 0 0 0 0 0 0
  328.         0
  329.         0
  330.         2
  331.     [frmlay]
  332.         16833
  333.         11908
  334.         1
  335.         1440
  336.         792
  337.         1
  338.         15465
  339.         1440
  340.         0
  341.         1
  342.         0
  343.         1
  344.         1
  345.         0
  346.         1
  347.         1440
  348.         10465
  349.         2
  350.         2
  351.         4680
  352.         3
  353.         9360
  354.     [txt]
  355. >
  356. [elay]
  357. [l1]
  358.     0
  359. [pg]
  360.     2
  361.     49 0 40 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  362.     96 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  363. [edoc]
  364. <:#278,9025>FUNCTION SetupAmiWeb()
  365.  
  366. <:#278,9025>
  367.  
  368. <:#278,9025>Win=GetWindowsDirectory$()
  369.  
  370. <:#278,9025>Ami=GetAmiDirectory$()
  371.  
  372. <:#278,9025>Macros=GetMacPath$()
  373.  
  374. <:#278,9025>Style=GetStylePath$()
  375.  
  376. <:#278,9025>Docs=GetDocPath$()
  377.  
  378. Icons="{Ami}icons\"
  379.  
  380. <:#278,9025>
  381.  
  382. <:#278,9025>
  383.  
  384. <:#556,9025>Message("Please send me a REAL postcard!!  See README.TXT","AmiWeb Setup")
  385.  
  386. <:#278,9025>File=FindFirst$("{Win}system\ole2nls.dll",0)
  387.  
  388. <:#278,9025>IF File="" 
  389.  
  390. <:#278,9025>    Message("You must install OLE2 first","AmiWeb Setup")
  391.  
  392. <:#278,9025>    EXIT FUNCTION
  393.  
  394. <:#278,9025>ENDIF
  395.  
  396. <:#278,9025>File=FindFirst$("{Ami}wn_sm2ht.exe",0)
  397.  
  398. <:#278,9025>IF File<<<;>""
  399.  
  400. <:#278,9025>    DOSDelFile("{Ami}wn_sm2ht.exe")
  401.  
  402. <:#278,9025>ENDIF
  403.  
  404. <:#278,9025>FillEdit(8000,Macros)
  405.  
  406. <:#278,9025>FillEdit(8001,Icons)
  407.  
  408. <:#278,9025>FillEdit(8002,Style)
  409.  
  410. <:#278,9025>FillEdit(8003,Docs)
  411.  
  412. <:#278,9025>
  413.  
  414. <:#278,9025>Box=DialogBox(".","Setup")
  415.  
  416. <:#278,9025>IF Box<<<;>1 
  417.  
  418. <:#278,9025>    EXIT FUNCTION
  419.  
  420. <:#278,9025>ENDIF
  421.  
  422. <:#278,9025>
  423.  
  424. <:#278,9025>Macros=GetDialogField$(8000)
  425.  
  426. <:#278,9025>Icons=GetDialogField$(8001)
  427.  
  428. <:#278,9025>Style=GetDialogField$(8002)
  429.  
  430. <:#278,9025>Docs=GetDialogField$(8003)
  431.  
  432. <:#278,9025>
  433.  
  434. <:#278,9025>MacroName=GetRunningMacroFile$()
  435.  
  436. <:#278,9025>Pos=LEN(MacroName)
  437.  
  438. <:#278,9025>WHILE "\" != MID$(MacroName, Pos, 1)
  439.  
  440. <:#278,9025>    Pos = Pos - 1
  441.  
  442. <:#278,9025>WEND
  443.  
  444. <:#278,9025>PathName = Left$(MacroName, Pos)
  445.  
  446. <:#278,9025>Entries=GetProfileString$("info","windows","{PathName}Setup.ini")
  447.  
  448. <:#278,9025>CALL CopyFiles(Win, Entries, PathName)
  449.  
  450. <:#278,9025>Entries=GetProfileString$("info","macros","{PathName}Setup.ini")
  451.  
  452. <:#278,9025>CALL CopyFiles(Macros, Entries, PathName)
  453.  
  454. <:#278,9025>Entries=GetProfileString$("info","styles","{PathName}Setup.ini")
  455.  
  456. <:#278,9025>CALL CopyFiles(Style, Entries, PathName)
  457.  
  458. <:#278,9025>Entries=GetProfileString$("info","icons","{PathName}Setup.ini")
  459.  
  460. <:#278,9025>CALL CopyFiles(Icons, Entries, PathName)
  461.  
  462. <:#278,9025>Entries=GetProfileString$("info","docs","{PathName}Setup.ini")
  463.  
  464. <:#278,9025>CALL CopyFiles(Docs, Entries, PathName)
  465.  
  466. <:#278,9025>Message("Installation Complete")
  467.  
  468. <:#278,9025>
  469.  
  470. <:#278,9025>END FUNCTION
  471.  
  472. <:#278,9025>
  473.  
  474. <:#278,9025>DIALOG    Setup
  475.  
  476. <:#278,9025>-2134376448    11    36    62    246    146    ""    ""    "AmiWeb Setup"
  477.  
  478. <:#278,9025>18    28    40    10    1000    1342177280    "static"    "Macros file"    0 
  479.  
  480. <:#278,9025>18    48    40    10    1001    1342177280    "static"    "SmartIcons"    0 
  481.  
  482. <:#278,9025>18    68    40    10    1002    1342177280    "static"    "Style Sheet"    0 
  483.  
  484. <:#278,9025>18    88    40    10    1003    1342177280    "static"    "Documents"    0 
  485.  
  486. <:#556,9025>26    6    130    10    1004    1342177280    "static"    "Destination directories for:"    0 
  487.  
  488. <:#278,9025>62    26    150    12    8000    1350631552    "edit"    ""    0 
  489.  
  490. <:#278,9025>62    46    150    12    8001    1350631552    "edit"    ""    0 
  491.  
  492. <:#278,9025>62    66    150    12    8002    1350631552    "edit"    ""    0 
  493.  
  494. <:#278,9025>62    86    150    12    8003    1350631552    "edit"    ""    0 
  495.  
  496. <:#278,9025>60    116    40    14    1    1342373889    "button"    "OK"    0 
  497.  
  498. <:#278,9025>130    116    40    14    2    1342373888    "button"    "Quit Setup"    0 
  499.  
  500. <:#278,9025>END DIALOG
  501.  
  502. <:#278,9025>
  503.  
  504. <:#278,9025>
  505.  
  506. <:#278,9025>FUNCTION CopyFiles(Directory, Entries, PathName)
  507.  
  508. <:#278,9025>
  509.  
  510. <:#278,9025>IF Right$(Directory,1)<<<;>"\"
  511.  
  512. <:#278,9025>    Directory="{Directory}\"
  513.  
  514. <:#278,9025>ENDIF
  515.  
  516. <:#278,9025>Pos=1
  517.  
  518. <:#278,9025>WHILE Pos<<LEN(Entries)
  519.  
  520. <:#278,9025>    Pos2=Pos
  521.  
  522. <:#278,9025>    WHILE (" "<<<;>MID$(Entries, Pos, 1)) AND(Pos<<LEN(Entries))
  523.  
  524. <:#278,9025>        Pos=Pos+1
  525.  
  526. <:#278,9025>    WEND
  527.  
  528. <:#278,9025>    IF(Pos<<LEN(Entries)) 
  529.  
  530. <:#278,9025>        Pos=Pos+(-1)
  531.  
  532. <:#278,9025>    ENDIF
  533.  
  534. <:#278,9025>    Files=MID$(Entries, Pos2, (Pos-Pos2)+1)
  535.  
  536. <:#278,9025>    File=FindFirst$("{PathName}{Files}",0)
  537.  
  538. <:#278,9025>    WHILE File<<<;>""
  539.  
  540. <:#278,9025>        IF DOSCopyFile("{PathName}{File}","{Directory}{File}") <<<;> 1
  541.  
  542. <:#278,9025>            Message("Unable to copy {File} to {Directory}")
  543.  
  544. <:#278,9025>        ENDIF
  545.  
  546. <:#278,9025>        File=FindNext$()
  547.  
  548. <:#278,9025>    WEND
  549.  
  550. <:#278,9025>    Pos=Pos+2
  551.  
  552. <:#278,9025>WEND
  553.  
  554. <:#278,9025>END FUNCTION
  555.  
  556. >
  557.  
  558. [Embedded]
  559. 00006573
  560.